home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 August / CD [BM9508].bin / basic / bp_kouza / f_basic / list2.bas < prev    next >
Encoding:
BASIC Source File  |  1995-06-09  |  1000 b   |  23 lines
  1. 100 SCREEN@ 0
  2. 110 CONSOLE 0,25,0
  3. 120 WIDTH 80,25
  4. 130 CLS 0
  5. 140 LINE(0,200)-(639,399),PSET,1,BF
  6. 150 RV=.5!                                             'ôºû╛æ╠Æåé┼é╠î⌡é╠æèæ╬æ¼ôx
  7. 160 WHILE -1                                                        'û│î└âïü[âv
  8. 170  CLS 4
  9. 180  INPUT "ôⁿÄ╦èpôxé═";RI                                      'ôⁿÄ╦èpôxé≡ôⁿù═
  10. 190  RI = 90 - RI
  11. 200  RI = RI * 3.1416! / 180                                   'ôxü¿âëâWâAâôò╧è╖
  12. 210  R = RV * COS ( RI )
  13. 220  RI2 = - ATN ( R / SQR ( - R * R + 1 ) ) + 1.5708!       'ïⁿÉ▄îπé╠èpôxé≡îvÄZ
  14. 230  Y = 0 'ïOÉ╒é≡ò`é¡ïNô_ éxì└òW
  15. 240  X = 320 + 200 * TAN( 3.1416! / 2 - RI )               'ïOÉ╒é≡ò`é¡ïNô_ Xì└òW
  16. 250  WHILE Y < 400
  17. 260 LINE(X-30,Y)-(X+30,Y),PSET,6
  18. 270   X = X - COS( RI )                                       'ïOÉ╒é╠ê┌ô« Xì└òW
  19. 280   Y = Y + SIN( RI )                                       'ïOÉ╒é╠ê┌ô« Yì└òW
  20. 290   IF Y > 200 THEN RI = RI2                            'ôⁿÄ╦é╡é╜éτïⁿÉ▄é│é╣éΘ
  21. 300  WEND
  22. 310 WEND
  23.